ShiftReal Subroutine

public subroutine ShiftReal(gridin, gridout, shifteast, shiftnorth)

Apply a shift to grid_real. Modifies xllcorner and yllcorner

Arguments

Type IntentOptional Attributes Name
type(grid_real), intent(in) :: gridin
type(grid_real), intent(out) :: gridout
real(kind=float), intent(in) :: shifteast

amount of shift in east direction
real(kind=float), intent(in) :: shiftnorth

amount of shift in north direction

Source Code

SUBROUTINE ShiftReal &
!
(gridin, gridout, shifteast, shiftnorth) 

IMPLICIT NONE

!Arguments with intent in
TYPE (grid_real), INTENT(IN) :: gridin
REAL (KIND = float), INTENT(IN) :: shifteast  !!amount of shift in east direction
REAL (KIND = float), INTENT(IN) :: shiftnorth  !!amount of shift in north direction

!Arguments with intent(out):
TYPE (grid_real), INTENT(OUT) :: gridout

!---------------------end of declarations--------------------------------------

CALL NewGrid (gridout, gridin)

gridout = gridin

gridout % xllcorner = gridin % xllcorner + shifteast

gridout % yllcorner = gridin % yllcorner + shiftnorth

RETURN

END SUBROUTINE ShiftReal